archived functions/viewCommunities.R

In michaelgavin/htn: Build a historical text network.

#' View the community data associated with the
#' graph stored in a \code{docNetwork} object.
#' 
#' @param dnet  The \code{docNetwork} object that
#'              holds the community data.
#'              
#' @export
viewCommunities <- function(dnet) {
  comms = unique(dnet@communities$membership)
  names = c()
  comm = c()
  comms = sort(comms)
  for(i in 1:length(comms)) {
    temp = names(membership(dnet@communities))[which(membership(dnet@communities) == comms[i])]
    names = c(names, temp)
    comm = c(comm, rep(comms[i], length(temp)))
  }
  Communities = data.frame(names, comm)
  colnames(Communities) = c("Name", "Community")
  View(Communities)
}